perm filename 18.SCR[SCR,LCS] blob
sn#441706 filedate 1979-05-16 generic text, type T, neo UTF8
FUNC FUN; < F1, F2, F3, F4, F5, F6
FUNC PPP[SCR,LCS]; < F1, F2, F3, F4, F5, F6
COMMON TOOT TOOT CLAR BRIT BUZZ;
COMMON REVRB;
< 18 .SCR -- RANDOM NUMBER= 1
PLAY;
REVRB 0.000 7.000
;PRINT P1;< REVRB 1
CLAR 0.000 0.222 261.626 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F1 0.000 0.000 0.000 0.000 0.000 18.000 0.000
0.000 1.000
;PRINT P1;< CLAR 1
BUZZ 0.000 0.333 C/4 1.000 F3 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000
;PRINT P1;< BUZZ 1
CLAR 0.222 0.222 271.897 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 1.000 18.000
;PRINT P1;< CLAR 2
BUZZ 0.333 0.333 CS/4 1.000 F3 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000
;PRINT P1;< BUZZ 2
CLAR 0.444 0.222 282.571 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F5 0.000 0.000 0.000 0.000 2.000 18.000
;PRINT P1;< CLAR 3
CLAR 0.666 0.222 293.665 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F6 0.000 0.000 0.000 0.000 3.000
;PRINT P1;< CLAR 4
BUZZ 0.666 0.333 D/4 1.000 F3 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000
;PRINT P1;< BUZZ 3
CLAR 0.888 0.223 305.194 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F1 0.000 0.000 0.000 0.000 4.000 18.000
;PRINT P1;< CLAR 5
BUZZ 0.999 0.334 DS/4 1.000 F3 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000
;PRINT P1;< BUZZ 4
CLAR 1.111 0.222 317.175 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 5.000 18.000
;PRINT P1;< CLAR 6
CLAR 1.333 0.222 329.627 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F5 0.000 0.000 0.000 0.000 6.000
;PRINT P1;< CLAR 7
BUZZ 1.333 0.333 E/4 1.000 F3 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000
;PRINT P1;< BUZZ 5
CLAR 1.555 0.222 342.568 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F6 0.000 0.000 0.000 0.000 7.000 18.000
;PRINT P1;< CLAR 8
BUZZ 1.666 0.333 F/4 1.000 F3 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000
;PRINT P1;< BUZZ 6
CLAR 1.777 0.683 356.017 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F1 0.000 0.000 0.000 0.000 8.000 18.000 0.000
0.000 3.079
;PRINT P1;< CLAR 9
CLAR 1.999 0.223 369.994 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 9.000 18.000 0.000
0.000 1.000
;PRINT P1;< CLAR 10
BUZZ 1.999 0.862 FS/4 1.000 F3 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 2.580
;PRINT P1;< BUZZ 7
CLAR 2.222 0.222 384.520 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F5 0.000 0.000 0.000 0.000 10.000 18.000 0.000
0.000 1.000
;PRINT P1;< CLAR 11
BUZZ 2.333 0.333 G/4 1.000 F3 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000
;PRINT P1;< BUZZ 8
CLAR 2.444 0.222 399.616 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F6 0.000 0.000 0.000 0.000 11.000 18.000
;PRINT P1;< CLAR 12
CLAR 2.666 0.222 415.305 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F1 0.000 0.000 0.000 0.000 12.000
;PRINT P1;< CLAR 13
BUZZ 2.666 0.333 GS/4 1.000 F3 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000
;PRINT P1;< BUZZ 9
CLAR 2.888 0.223 431.609 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 13.000 18.000
;PRINT P1;< CLAR 14
BUZZ 2.999 0.334 A/4 1.000 F3 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000
;PRINT P1;< BUZZ 10
CLAR 3.111 0.222 448.554 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F5 0.000 0.000 0.000 0.000 14.000 18.000
;PRINT P1;< CLAR 15
CLAR 3.333 0.222 466.164 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F6 0.000 0.000 0.000 0.000 15.000
;PRINT P1;< CLAR 16
BUZZ 3.333 0.333 AS/4 1.000 F3 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000
;PRINT P1;< BUZZ 11
CLAR 3.555 0.222 484.465 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F1 0.000 0.000 0.000 0.000 16.000 18.000
;PRINT P1;< CLAR 17
BUZZ 3.666 0.333 B/4 1.000 F3 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000
;PRINT P1;< BUZZ 12
CLAR 3.777 0.222 503.485 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 17.000 18.000
;PRINT P1;< CLAR 18
CLAR 3.999 1.000 523.251 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F5 0.000 0.000 0.000 0.000 18.000
;PRINT P1;< CLAR 19
BUZZ 3.999 1.000 C/2 1.000 F3 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000
;PRINT P1;< BUZZ 13
FINISH; < 18 .SCR